﻿Imports Mysoft.Map.Data

Partial Public Class chkForImport
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim strSql As String
        Dim strTb As String
        Dim BUGUID As String
        Dim flag As String
        Dim param As String
        flag = Request.QueryString("flag")
        param = Request.QueryString("param")
        strTb = Request.QueryString("tb")
        BUGUID = Request.QueryString("BUGUID")
        If flag = 0 Or param = "" Then
            strSql = "SELECT COUNT(*) from " & strTb & " where BUGUID='" & BUGUID & "'"
        Else
            strSql = "SELECT COUNT(*) from " & strTb & " where ParamName='" & param & "' and ScopeGUID='" & BUGUID & "'"
        End If
        If MyDB.GetDataItemInt(strSql) <= 0 Then
            Response.Write("1")
            Response.End()
        Else
            Response.Write("0")
            Response.End()
        End If

    End Sub

End Class